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This  report  describes  a mathematical  model  and  a set  of  associated  inter- 
active APL  functions  which  are  used  to  calculate  an  officer  manpower  plan  for 
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by  rank.  A complete  plan  can  be  calculated  and  printed  in  less  than  five 
minutes.  This  is  a considerable  reduction  from  the  times  involved  in  hand 
calculations.  This  increase  in  speed  allows  the  planning  officers  to  try-^  j 
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1 . Introduction 

This  report  describes  a mathematical  model  and  a set  of  associated  interactive 
APL  functions  which  are  used  to  calculate  an  officer  manpower  plan  for  the  United 
States  Marine  Corps.  This  plan  is  used  during  the  budget  preparation  cycle 
and  represents  the  future  forecasted  and  planned  force  structure  by  rank. 

A complete  plan  can  be  calculated  and  printed  in  less  than  five  minutes.  This 
is  a considerable  reduction  from  the  times  involved  in  hand  calculations.  This 
increase  in  speed  allows  the  planning  officers  to  try  many  alternate  plans  in  a 
short  period  of  time,  and  do  sensitivity  analysis  on  certain  data  elements  such 
as  loss  rates. 

A brief  summary  of  the  method  of  calculation  is  given  here.  Details  are  pre- 
sented in  section  3.  End  strengths  (by  month)  are  given  for  ranks  General  through 
Captain,  as  well  as  losses  and  gains  to  these  ranks.  From  these  the  monthly  num- 
bers of  promotions  out  of  ranks  Colonel  through  1-st  Lieutenant  are  calculated. 

For  ranks  Warrant  Officer-1  through  2-nd  Lieutenant,  the  numbers  of  monthly  pro- 
motions are  given,  and  thus  the  monthly  end-strengths  for  these  ranks  are  de-  | 

termined.  Finally,  once  promotions  into  and  out  of  1-st  Lieutenant  have  been 
calculated,  the  monthly  end-strengths  are  calculated  for  that  rank. 

Section  2 contains  the  mathematical  formulation  of  the  flow  model  which  is  i 

based  on  ideas  presented  in  chapter  1 of  reference  [2].  Section  3 gives  a de-  j 

tailed  description  of  the  order  in  which  the  calculations  are  made.  Section  4 j 

describes  a set  of  data  input  functions  written  in  APL  and  intended  for  interactive  j 

use  in  entering  data.  Section  5 describes  a set  of  calculation  and  format  func- 
tions written  in  APL  and  intended  for  calculation  and  display  of  the  officer  man- 
power plan.  Readers  unfamiliar  with  APL  should  see  reference  [1].  Finally,  section 
6 shows  a sample  use  of  the  functions  and  displays  a plan. 

All  the  functions  in  this  report  are  in  a workspace  called  OFFICERPLAN  in  the 


APL*  system  of  Scientific  Time  Sharing  Corporation.  They  were  prepared  at  the 
Naval  Postgraduate  School  through  constant  communication  with  the  staff  in  MPP  at 
Headquarters,  Marine  Corps. 


2.  The  Personnel  Flow  Model 


In  this  section  is  described  the  mathematical  flow  model  and  how  it  is  used 
to  determine  the  officer  manpower  plan.  The  model  is  based  on  simple  conservation 
of  flow  equations  (see  chapter  1 of  reference  [2]  for  details  of  flow  models). 

Let  the  discrete  planning  time  (typically  the  end  of  each  month)  be  numbered 

t = 0,1,2,  ...,  with  t = 0 being  the  starting  point.  The  time  interval  between 
times  t and  t+1  we  call  period  t+1.  At  each  time  t we  count  the  number  in 

each  rank  and  call  it  the  stock  level  at  time  t.  People  are  promoted,  join, 

or  leave  between  the  accounting  time  points,  and  these  are  called  flows  in  period 
t.  Thus  we  can  write 

(1)  Stock  level  = Stock  level  + Gains  - Losses  + Promotions  In 
at  (t+1)  at  t in  (t+1)  in  (t+1)  in  (t+1) 

Promotions  Out 
in  (t+1) 

To  express  (1)  mathematically  we  use  the  following  notation.  Let 
s^(t)  = stock  level  at  time  t in  rank  j 

J 

gT(t)  = gains  in  period  t into  rank  j 
^.(t)  = losses  in  period  t from  rank  j 

J 

x^(t)  = promotions  in  period  t into  rank  j 

y^(t)  = promotions  in  period  t out  of  rank  j 
*) 

The  index  j ranges  over  1,2,  ...,  n,  where  n is  the  number  of  ranks  which 
are  numbered  in  decreasing  seniority.  Thus  rank  1 is  the  highest  rank  and  rank 
n is  the  lowest.  Equation  (1)  now  becomes 

(2)  Sj(t+1)  = Sj(t)  + gj(t+l)  -^j(t+l)  + Xj(t+1)  - yj(t+l), 

j = 1 ,2,  . . . , n,  t ^ 0. 
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Let  s(t),  g(t),  ^(t),  x(t)  and  y(t)  represent  the  n-dimensional  vectors 

for  sJt),  g.(t),  lAt),  x.(t)  and  y.(t)  respectively.  Then  we  can  write 

J J J J J 

(2)  as 

(3)  s(t+l)  = s(t)  + g(t+l)  --e(t+l)  + x(t+l)  -y(t+l),  t > 0. 


Before  this  general  model  can  be  applied  to  the  USfC  officer  corps,  further  ex- 


planation is  required  of  what  we  precisely  mean  by  ranks,  and  for  each  rank,  the 
definition  of  gains  and  losses. 

In  the  computer  models  described  later  in  this  report  n has  the  value  11 
and  the  ranks  are: 


Number  (j) 

Rank 

1 

General 

(GEN) 

2 

Colonel 

(COL) 

3 

Lieutenant  Colonel 

(LCOL) 

4 

Major 

(MAJ) 

5 

Captain 

(CAPT) 

6 

First  Lieutenant 

(ILT) 

7 

Second  Lieutenant 

/ 

(2LT) 

8 

Warrant  Officer-4 

(CWO-4) 

9 

Warrant  Officer-3 

(CWO-3) 

10 

Warrant  Officer-2 

(CWO-2) 

11 

Warrant  Officer-1 

(WO-1 ) 

For  each  rank,  the 

sources  of  gains  are: 

Rank  Sources  of  Gains 


3 

i 

Fl 

i 

:i 
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GEN 

COL-CAPT 
1LT-2LT 
CWO-4  - CWO-2 
WO-1 


None 

Returns  from  reimbursable  billets 

Accessions  into  the  commissioned  officer  corps 

None 

Accessions  into  the  warrant  officer  corps 


t; 

k 
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For  each  rank  the  sources  of  losses  are: 


Rank 

GEN 

COL-MAJ 

CAPT 

ILT 

2LT  - WO-1 


Sources  of  Losses 


Natural  attrition  and  retirement 

Natural  attrition,  retirement  and  movement  to  reimbursable 
billets 

Natural  attrition,  those  released  from  active  duty,  and 
movement  to  reimbursable  billets 

Natural  attrition  and  those  released  from  active  duty 

Natural  attrition 


Promotions  into  a given  rank  are  of  course  related  to  promotions  out  of  lower 
ranks.  Since  time  periods  are  typically  of  one-month  length,  promotions  of  more 
than  1 rank  in  a time  period  are  assumed  not  to  occur.  An  exception  occurs  in 
promotions  from  warrant  officer  status  to  limit  duty  officer  (LDO)  in  the  rank 
of  ILT. 

For  the  ranks  GEN  through  CAPT  and  for  CWO-4  through  CWO-2  , the  promotions 
into  a rank  are  equal  to  the  promotions  out  of  the  next  lower  rank.  Thus 


(4)  J = 1.2,  ...,  5,  t>l. 

j = 8,9,10, 

Note  that  y^(t)  is  zero  (no  promotions  out  of  the  highest  rank). 

Let  z.(t)  be  the  number  in  rank  j promoted  to  ILT  as  LDO's,  for  j = 8,9,10, 

V 

t ^ 1 . Then 

(5)  Xg(t)  = y7(t)  + 2g(t)  + Zg(t)  + t > 1. 


No  promotions  are  possible  into  2LT  or  WO-1,  thus  x^(t)  and  Xii(t)  are  both 
zero. 

Equation  (3)  can  now  be  simplified  by  eliminating  x(t+l).  Let  A be  an 
11  X 11  matrix  of  O's  and  1 's  where 


r 


(i)  the  diagonal  immediately  above  the  main  diagonal  has  all  elements  equal 
to  1 except  for  the  one  on  row  6 which  is  0, 

(ii)  all  other  elements  of  A are  0. 

Let  B be  an  11  X 11  matrix  of  O's  and  I's  where 

(i)  elements  in  columns  8,  9,  and  10  on  row  6 are  equal  to  1, 

(ii)  all  other  elements  are  equal  to  0. 

Let  2(t)  be  an  11-vector  with  Zg(t),  Zg(t)  and  Z]Q(t)  in  positions  8, 

9,  and  10  respectively,  and  all  other  elements  equal  to  zero.  Then  from  (4)  and 

(5) 

(6)  x(t)  = Ay(t)  + Bz(t),  t^l. 

Substituting  this  into  (3)  gives 

(7)  s(t+i)  = s(t)  + g(t+l)-ii(t+l)  + (A-I)y(t+1)  + B2(t+1),  t > 0. 

Here  I represents  an  identity  matrix.  Equation  (7)  can  now  be  used  to  determine 
the  officer  manpower  plan. 
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3.  The  Calculation  Procedure 


For  ranks  GEN  through  CAPT  (1-5)  the  end  strengths,  gains  and  losses  are  all 
given.  Denote  with  a ■ the  system  comprising  the  first  5 equations  in  (7). 
Since  the  5 x 5 matrix  taken  from  the  upper  left  of  B is  a zero  matrix,  we  have 

(8)  s(t+l)  = s(t)  + g(t+l)  - l{t+^)  + (A-i)y(t+l),  t ^ 0. 

The  only  unknowns  in  this  equation  are  the  elements  of  y(t)  for  t ^ 1.  Thus 
we  solve  (8)  to  obtain 

(9)  y(t+l)  = (I-A)'^  [s(t)  - s(t+l)  + g(t+l)  - t(t+l)],  t ^0. 

The  solution  of  (9)  gives  the  promotions  out  of  ranks  COL  through  ILT  for  each 
period  in  the  planning  horizon. 

For  ranks  2LT  to  WO-1 , the  promotions  out  are  given,  together  with  the  gains 
and  losses.  Denote  with  ''  the  system  comprising  the  last  5 equations  in  (7). 
Then  given  the  starting  stocks  we  determine  s(l)  by 

(10)  s(l)  = s(0)  + g(l)  - lO)  + (A-I)y(l)  + §^(1), 

then  s(2),  s(3)  etc.  recursively  through  the  planning  horizon.  The  only  re- 

maining rank  for  which  calculations  have  not  been  made  is  ILT.  For  ranks  above 
this,  end-strengths  are  given  and  promotions  calculated.  For  ranks  below  ILT, 
promotions  are  given  and  end-strengths  calculated.  For  ILT  we  have 

Sg(t+1)  = Sg(t)  + gg(t+l)  - !ig(t+l)  + Xg(t+1)  - yg(t+l),  t >,  0. 

Starting  at  t = 0,  Sg(0)  is  given,  as  are  gg(l)  and  !ig(l)-  Promotions  out, 

yg(l),  are  calculated  through  equation  (9),  and  promotions  in,  Xg(l),  are 
calculated  through  (10)  and  (5).  Thus  the  unknown  is  the  end-strength  Sg(l). 
This  and  future  period  end  strengths  are  calculated  recursively  over  the  plan- 
ning horizon  after  equations  (9)  and  (10)  have  been  solved  for  all  other  ranks. 


r — — ^ 

4.  APL  Data  Input  Functions 

The  following  page  lists  eleven  matrices  and  one  vector  which  are  used  to 
store  input  data  required  in  computing  the  officer  manpower  plan.  The  results 

of  the  calculations  are  also  stored  in  these  arrays. 

r 

I There  are  eight  APL  input  functions  used  to  interactively  enter  data  at  a 

I remote  terminal.  Each  one  is  described  on  the  following  pages  together  with  a 

listing  of  the  function  and  an  illustrative  example  of  its  use.  Alternative 
methods  of  data  input  are  illustrated.  The  use  of  the  APL  operator  p can  save 
[ wime  when  repetitive  numbers  have  to  be  entered.  See  Gilman  and  Rose  [1]  for 

I 

I details  of  APL  operators. 


DATA  ARRAYS 


These 

arrays  are 

stored  as  global  variables. 

APL  Name 

Dimensions 

Description 

BSM 

n 

X 12 

Matrix  of  beginning  strengths,  11  ranks 
(GEN  - WO-1),  12  periods 

ESM 

n 

X 12 

Matrix  of  end  strengths,  11  ranks,  12  periods 

LFM 

11 

X 12 

Matrix  of  loss  factors,  11  ranks,  12  periods 

LM 

11 

X 12 

Matrix  of  losses,  11  ranks,  12  periods 

MGU 

11 

X 12 

Matrix  of  monthly  gains,  11  ranks,  12  periods 

POM 

11 

X 12 

Matrix  of  promotions  "out",  11  ranks  12 
periods 

LDOM 

n 

X 12 

Matrix  of  promotions  to  LDO  from  warrant 
officer  ranks,  11  ranks,  12  periods 

Am 

11 

X 12 

Matrix  of  numbers  in  reimbursable  billets, 

11  ranks,  12  periods 

TPM 

11 

X 12 

Matrix  of  transfers  reimbursable  billets, 

11  ranks,  12  periods 

pm 

11 

X 12 

Matrix  of  transfers  from  reimbursable  billets, 
11  ranks,  12  periods 

Rm 

n 

X 12 

Matrix  of  numbers  released  from  active  duty, 

11  ranks,  12  periods 

TLV 

11 

Vector  of  yearly  losses  from  each  rank,  11 
ranks 

Type  )SAVE  after  data  entry 

completion  to  ensure  that  new  input  data 

is  not  lost. 


\ 
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BSINPUT  (begin  strength  input) 


Syntax;  Niladic,  interactively  asks  for  input 

Global  Variables;  It  requires  the  error  message  EM,  the  rank  vector 
RMKZ,  and  the  data  matrix  BSM, 

Files;  None 

Functions;  None 

Purpose;  This  function  allows  the  user  to  enter  the  numbers  in  each 
of  11  ranks  (GEN  - WO-1)  at  the  beginning  of  a planning  period  and 
store  them  as  the  first  column  of  an  11  x 12  BSM. 


BSINPUT 

BEGIN  STRENGTH? 


GEN 

COL 

LCOL 

CAPT 

ILT 

2L7 

V-4 

V-3  ;/-2 

V-1 

67 

573 

1471 

2909 

4343 

4086 

3 38  1 

199 

79  411 

504 

Function  Listinc 


i 

IBSINPUTlUn  j 

7 BSINPUT  iX 

[1]  Lli'BEGIN  STRENGTH?'  0 RANK’l 

[2]  -►(  ll=pAr^a)pL2  0 E^A  0 

[3]  L2:BSAlil'i*-X 


ESINPUT  (end  strength  input) 


Syntax;  Niladic,  interactively  asks  for  input 

Global  Variables:  It  requires  the  error  message  Kjt  the  month  matrix 
MONTS,y  the  rank  vector  RANKZ,  and  the  data  matrix  rs*j. 

Files;  None 

Functions;  None 

Purpose;  This  function  allows  the  user  to  enter  the  planned  end 
strengths  for  ranks  GEN,  COL,  LCOL,  MAJ,  and  CAPT  for  each  of 
the  12  planning  months.  These  are  stored  in  the  first  5 rows  of  the 
11  X 12  matrix  ESM. 


ESItiPUT 
E^ID  STRENGTH? 

GEN 

OCT  NOV  DEC  JAN  FEB  MAR  APR  MAY  JUN  JUL  AUG  SEP 
0; 

57  57  67  67  67  67  67  67  5'^  6''  67 

COL 

OCT  NOV  DEC  JAN  FEB  MAR  APR  MAY  JUN  JUL  AUG  SEP 
U: 

12p574 

LCOL 

OCT  NOV  DEC  JAN  FEB  MAR  APR  MAY  JUN  JUL  AUG  SEP 

□ : 

12P1U72 

MAJ 

OCT  NOV  DEC  JAN  FEB  MAR  APR  MAY  JUN  JUL  AUG  SEP 
0; 

( 5p2910  ) , 2912,6p2913 

CAPT 

OCT  NOV  DEC  JAN  FEB  MAR  APR  MAY  JUN  JUL  AUG  SEP 

n . 

^ . 

12P4843 


VSSINPUTCOlN 
7 ESINPUT  \X 

Cl]  *END  STRENGTH?^  0 1^0 

[2]  Ll;/?/l/V/^£C(6xI)  + i5]  0 , MONTH.'  » 

[3]  ^(i2-pX-n)QL2  0 E'd  0 *Ll 

[4]  L2  : ES^tl  * ^ f 0 •*•(  42j-»-J  + 1 ) oil 
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LFINPUT  (loss  factor  input) 


Syntax;  Niladic,  interactively  asks  for  input 


Global  Variables:  It  requires  the  error  message  EH,  the  month  matrix 
MONTg,  the  rank  vector  rank^  and  the  data  matrix 

Files;  None 

Functions:  None 

Purpose;  This  function  allows  the  user  to  enter  the  desired  loss 
factors  for  each  of  11  ranks  (starting  with  GEN  and  ending  with 
W0-l)for  each  of  the  12  planning  months.  The  12  month  factors  must 
add  to  1.0.  These  factors  are  used  to  spread  yearly  losses  from 
each  rank  by  month.  They  are  stored  in  the  11  x 12  matrix  LFU. 

Example: 

LFIf^P'JT 
LOSS  FACTORS? 

GE‘'i 

OCT  ROV  DEC  JAR  FEB  VAR  APR  MAY  JWi  JUL  AUG  SEP 
u: 

.OiA  .03  .02  .01  .06  .06  .06  .04  .05  .077 

IRCORRECT  IRPUT 
GER 

OCT  ROV  DEC  JAR  FEB  MAR  APR  MAY  JUR  JUL  AUG  SEP 
G; 

.04  .03  .02  .01  .06  .06  .05  .05  .07  .31  .1  .2 

COL 

OCT  ROV  DEC  JAR  FSB  MAR  APR  MAY  J'JR  JUL  AUG  SEP 

□ : 

I 


I 

y-1 

OCT  ROV  DEC  JAR  FEB  MAR  APR  MAY  JUR  JUL  AUG  SEP 
G: 

.09  .16  .09  .05  .07  .04  .02  .01  .02  .07  .22  .16 


Function  Listing; 

RLFIRPUTLulR 
V LFIRPUTihX 

Cl]  'LOSS  FACTORS?'  0 Jx-l 

[2]  LliRARKgL(.6»I-l)  + \S']  0 ,M0RTg,'  ' 

[3]  •*-(12  = p^«-G)3L2  0 E’i  0 -►il 

[4]  L2:  LFHil  0 -*■(  1 lsI-*-I  + l ) pLl 


12 


MGINPUT  (monthly  gains  input) 


Syntax : Niladic,  interactively  asks  for  input 

Global  Variables:  It  requires  the  error  message  EU,  the  rank  vector 
RANKV,  the  month  matrix  MONTH ^ and  the  data  matrix  mgm. 

Files:  None 

Functions:  None 

Purpose:  This  function  allows  the  user  to  enter  the  expected  gains 
in  each  of  12  months  into  the  ranks  WO-1 , 2LT  and  ILT  respectively. 
These  are  stored  in  rows  11,  7 and  6 of  the  11  x 12  matrix  MGM. 

Exampl e : 


MGINPUT 


MONTHLY 

GAINS? 

N~1 

OCT  NOV 

DEC 

JAN 

FSB 

MAR 

APR 

MAY 

JUN 

JUL 

AUG 

SEP 

0; 

0 0 

0 

0 

250 

0 

0 

0 

0 

0 

0 

0 

2LT 

OCT  NOV 

DEC 

JAN 

FSB 

MAR 

APR 

MAY 

JUN 

JUL 

AUG 

SEP 

) 

Li : 

242  152 

158 

102 

0 

19 

134 

173 

363 

140 

288 

0 

ILT 

OCT  NOV 

DEC 

JAN 

FSB 

MAR 

APR 

MAY 

JUN 

JUL 

AUG 

SEP 

i 

G: 

2 1 

3 

2 

6 

0 

0 

2 

0 

3 

0 

5 

Function  Listing: 


V:V5i.vpyrCG]7 

7 MGINPUT il ;M;V iX  j 

[1]  ' MONTHLY  GAINS?'  0 0 M--  3 6 p ( 6 0+ 1 5 ) . ( 3 6 + \ 6 ) , 3 0+ 1 6 0 1 1 7 6 V 

[2]  L2:HANXZC,M[I;]J  0 ,M0VTi,'  ' 

C3]  -►(  l2=pAr-^a)pZi3  0 EH  0 *12 

[4]  L3:MGalV\:ilii'i*X  0 *(.3iI*I*l)  oL2  ’ 

7 


POINPUT 


(promotions-out  input) 


Syntax:  Niladic,  interactively  asks  for  input 

Global  Variables:  It  requires  the  error  message  Eij,,  the  rank  vector 
RANKVt  the  month  matrix  MONTg,  and  the  two  data  matrices  POM  and  loom. 

Files:  None 

Functions:  None 

Purpose:  This  function  allows  the  user  to  enter  the  planned  promotions 
in  each  of  12  months  out  of  ranks  2LT,  and  the  warrant  officers.  These 
are  stored  in  rows  7 through  11  of  the  11  x 12  matrix  POM.  The  function 
then  asks  for  the  numbers  in  each  12  months  who  became  limited  duty 
officers  (LDO)  from  each  of  the  4 warrant  ranks.  These  numbers  are 
stored  in  rows  8 through  11  of  the  11  x 12  matrix  LOOM. 

Exampl e : 

POINPUT 

PROMOTIONS  OUT? 

2LT 

OCT  NOV  DEC  JAN  FEB  MAR  APR  MAY  JUN  JUL  AUG  SEP 
Q: 

0 415  14  194  0 4 115  60  750  331  9 14 

y-4 

OCT  NOV  DEC  JAN  FEB  MAR  APR  MAY  JUN  JUL  AUG  SEP 
G : 

12p0 

y-3 

OCT  NOV  DEC  JAN  FSB  MAR  APR  MAY  JUN  JUL  AUG  SEP 

G: 

74000000  39  000 

y-2 

OCT  NOV  DEC  JAN  FEB  MAR  APR  MAY  JUN  JUL  AUG  SEP 
G; 

0000  66  0000000 

y-1 

OCT  NOV  DEC  JAN  FEB  MAR  APR  MAY  JUN  JUL  AUG  SEP 
G: 

(4o0)  ,234,7p0 
TO  LDO? 

V-4 

OCT  NOV  DEC  JAN  FEB  MAR  APR  MAY  JUN  JUL  AUG  SEP 
G; 

000000002000 

y-3 

OCT  NOV  DEC  JAN  FSB  MAR  APR  MAY  JUN  JUL  AUG  SEP 
G: 


(8p0),25.(3p0) 


V-2  ■ 

OCT  NOV  DEC  JAS  FEB  MAR  APR  MAY  JUH  JUL  AUG  SEP 
0: 

(8p0) ,73,3p0 

W~l 

OCT  NOV  DEC  JAN  FEB  MAR  APR  MAY  JUN  JUL  AUG  SEP 
0: 

12p0 


Function  Listing; 


^POINPUTLUl^ 

V POINPUTil ;M;X 

[1]  'PROMOTIONS  OUT?'  0 J*1 

[2]  il;S>l/VA:£C(30+Jx6)  + x6]  0 ^MONTg,' 

C3]  -►(12  = p;f-Q)pL2  0 EH  0 -*11 

[4]  L2:P0HlI*ai'i-'-I  0 -►(  521-^1  + 1 ) pit  0 

[5]  Z;3;i?i4/VXZC(36+Jx6)  + i6]  0 ,MONTg,' 

[6]  -*>(i2=p^-^0)pz;4  0 EH  0 -►is 

[7]  Lti:LD0H^I*7O^I  0 -►(  42l^r+l ) pL3 


1^1 

t 


0 ' TO  LDO? ' 


REB-iniPUT  (reimbursable  input) 


I 

I i 


I 


\ 


! 


i 


Syntax:  Niladic,  interactively  asks  for  input 

Global  Variables;  It  requires  the  error  message  sr,  the  rank  vector 
RANKV,  the  month  matrix  :iONTH,  and  the  data  matrices  TR!J  and  FRV. 


Piles:  None 
Functions:  None 

Purpose;  This  function  allows  the  user  to  enter  scores  to  and  from 
reimbursable  billets  for  each  of  12  months  for  the  ranks  COL,  LCOL, 
[■lAJ,  and  CAPT  and  store  them  in  rows  2 through  5 of  the  11  x 12 
matrices  TR:j,  and  FRM  respectively. 

Example: 

REIMiaPUT 
COL  TO  REIMS 

OCT  HOV  DEC  JAli  FSB  MAR  APR  MAI  JU  R JUL  AUG  SEP 
0; 

1 1 ,10p0 

COL  FROM  REIMS 

OCT  aOV  DEC  JAtl  FEB  MAR  APR  MAY  JUli  JUL  AUG  SEP 

G: 

l,llpO 

LCOL  TO  REIMB 

OCT  ROV  DEC  JAR  FEB  MAR  APR  MAY  JUR  JUL  AUG  SEP 

0; 


VALUE  ERROR 
G 12p0 

A I 

n- 

12oO 

CAPT  TO  REIMB 

OCT  ROV  DEC  JAR  FEB  MAR  APR  MAY  JUR  JUL  AUG  SEP 
C : 

20001000000  00 
CAPT  FROM  REIMB 

OCT  ROV  DEC  JAR  FEB  MAR  APR  MAY  JUR  JUL  AUG  SEP 

n . 

101000020000 


Function  Listing: 


IREIMISPUTlUll 
7 REXMIUPUTiMiXil 

[1]  H*-  4 6 p&*30*RANKl  0 1^1 

[2]  TO  REIHB*  0 ' 

[3]  -»■(  l2  = pA:-*-a)pL2  0 EH  0 *Ll 

[4]  L2;2’itaCl  + l; 

CS]  ' FROM  REIMS'  0 ,MONTg.'  ' 

[6]  ■*•(  12  = p;r<^a)pL4  0 EH  0 -*-i3 

[7]  L4;f’/?aCJ+l;  3-Ar 

[0]  -*•(  421-^1+ DpLl 

7 


1 
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RLDINPUT 


(released  from  active  duty  input) 


Syntax:  Niladic,  interactively  asks  for  input 

Global  Variables:  It  requires  the  error  message  the  rank  vector 
RANKVt  the  month  matrix  WNTg,  and  the  data  matrix  RLM. 

Files:  None 

Functions:  None 

Purpose:  This  function  allows  the  user  to  enter  the  numbers  in  each 
of  12  months  who  will  be  released  from  active  duty  in  the  ranks  CAPT 
and  ILT.  The  data  is  stored  in  rows  5 and  6 of  the  11  x 12  matrix 
RLi. 

Example: 


RLBISPUT 

RELAD? 

CAPT 

OCT  HOV  DEC  JAH  FEB  ^iAR  APR  MAF  JUR  JUL  AUG  SEP 
G; 

4 16  14  6 2 9 4 7 9 8 14  12 

ILT 

OCT  iiOV  DEC  JAN  FEB  MAR  APR  MAY  JUN  JUL  AUG  SEP 
G: 

55  55  90  41  35  62  23  48  90  48  52  76 


Function  Listing; 


7i?L£II,VPyrCu37 
7 RLDINPUT  xhMiViX 

Cl]  'RELAD?'  0 J-*-!  OH*-  2 5 0 ( 24+ i 6 ) . ( 3 0 + 1 5 ) 0 V*-  5 6 

[2]  LliRANKll .MLI ill  0 ^HONTg^'  ' 

[3]  +(12=p;if>+G)pL2  0 E'd  0 +L1 

[4]  L2iRLiiLVlI1\1*-X  0 ■+(2>J+-r+l)pLl 


I 

( 

1 


i 

i 


\ 

I 


1 

I 


TLINPUT  (total  loss  input) 


Syntax;  Niladic,  interactively  asks  for  input 

Global  Variables;  It  requires  the  error  message  the  rank  vector 
RANKZ,  and  the  data  vector  TLY.. 

Files;  None 

Functions;  None 

Purpose;  This  function  allows  the  user  to  enter  the  losses  from  each 
of  the  11  ranks  for  the  planning  period,  and  store  them  in  the  11- 
vector  TLV. 


Example; 

TLISPUT 

TOTAL  YEAR  LOSSES? 


Gff.V 

COL 

LCOL 

MAJ 

CAPT 

ILT 

2LT 

y-4 

y-3 

V-2 

y-i 

11 

95 

155 

160 

593 

109 

35 

60 

25 

8 

4 

Function  Listing; 

!■ 

! 

I 

f ITLISP’JTLUl'J 

[ 7 TLIRPUT 

LI]  LI;*  TOTAL  YEAR  LOSSES?'  0 RAtiKl 
[2]  -►(  1 1=  pO  0 Eii  <>  -►LI 


The  calculation,  interactive  changing,  and  formatting  of  the  officer  manpower 
plan  require  ten  APL  functions.  These  are  listed  on  the  following  pages.  Only 
one  is  specified  by  the  user,  namely  OFPLAN.  This  function  calls  the  other  nine 
at  appropriate  points  and  they  remain  invisible  to  the  terminal  user. 

i 

I 

i 

I 


OFPLAN  (officer  manpower  plan) 


Syntax;  Niladic,  interactively  asks  for  various  changes  in  variables 
and  for  the  amount  of  detail  to  be  printed. 

Global  Variables:  The  data  arrays:  BSM,  ESM,  LFH,  MGM,  POM,  LOOM,  TRM, 


Files:  None 

Functions:  Requires  the  utilities  AYN  (answer  yes  or  no)  and  DATE, 
the  formatting  functions, FAffl,  ESREP,  OFIE,  OMPREP  and  ATREIMB, 
and  the  calculation  functions  CHGIM,  PLANi. 

Purpose:  This  is  the  main  interactive  function  for  obtaining  the 
manpower  plan.  It  is  the  only  one  (other  than  functions  to  input 
data)  that  the  user  specifies  when  calculating  a plan. 

Function  Listing:  See  next  page. 
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CHGFM 


CHGFi-1 

Syntax;  Monadic,  R CHGFM  M 

Global  Variables;  It  requires  the  error  message  fm. 

Files;  None 
Functions;  None 

Purpose;  It  allows  the  user  to  change  any  elements  in  a fractional 
matrix,  and  checks  that  the  new  entries  are  consistent  with  row  sums 
equal  to  1.0.  It  is  used  only  inside  other  functions. 


Function  Listing; 


ICHGFMimi 
7 R^CHGFM  MiXiY 

Cl]  'ESTER  ZERO  FOR  RASK  IF  SO  MORE  CHARGES' 

[2]  L1:'RASK  SU’ABER?'  0 -*•(  0 pi6  0 -»■(  1 ) pZ;2  0 EH  0 -*-Ll 

[3]  L2x'CURREST'  0 ,'F6.2'  DFMT  MiX;2 

[4]  L3:'SEi/?'  0 -►(l  = + /y-<-a)pL4  0 'DO  SOT  ADD  TO  1.0*  <0  -*13 

[5]  L4;-^(  12  = pr)pL5  0 'SEED  12  SUMBSRS'  0 -*-L3 

[6]  L3iMLXil*Y  0 -oil 
C7]  L6:R^M 

7 


J 
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CHGIM 


Syntax:  Monadic,  R CHGm  ll 

Global  Variables:  It  requires  the  error  message, 

Files:  None 
Functions:  None 

Purpose:  It  allows  the  user  to  change  any  elements  in  an  integer 
matrix.  It  is  used  only  inside  other  functions. 


lCHGIMi2'\l 
7 R-CHGI.^  M;X;Y 

Cl]  'SHT£R  ZERO  FOR  RA^^K  IF  SO  MORE  CtiASGES' 

[2]  L\\'RAliK  NUMBER?^  0 -*■(  0 =Jf-Q)  pLS  0 -*■(  1 UJIf)  pZ,2  0 EU.  0 -*-Ll 

[3]  Ll'.'CURREST'  0 ,'I6'  2FSIT  .■#[?;] 

[4]  'SEW?'  0 -*■(  12  = 0y-D)  oL4  0 'SEED  12  SU'dBERS'  0 *L3 

[5]  L4:.--fCy;  ]♦/  0 -il 
C 6 ] L 6 ; R'*‘M 

7 


PLAN\ 


Syntax;  Niladic 

Global  Variables;  It  requires  all  the  data  arrays,  BS'd,  ^SU,  LFU.* 

MGM,  POM,  LDOli,  TRM,  FEM.*  and  TLV, 

Files;  None 

Functions;  Requires  the  integer  rounding  function  ROUND 

Purpose;  This  function  performs  all  the  calculations  for  the  manpower 
plan  discussed  in  section  3. 


Function  Listing;  See  next  page  for  both  PMWi  and  ROUND. 
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Ft-fTF 


Syntax:  Monadic,  R *■  FMTF  m 

Global  Variables:  It  requires  the  month  matrix  MONTH  and  the  rank 
vector  RANKV. 

Files:  None 

Functions:  None 

Purpose:  It  formats  the  fractional  matrix  Af  with  column  and  row  headers. 
It  is  used  only  within  other  functions. 

Function  Listing: 


7 FMTF  M 

Cl]  ' RANK'.A1‘2  3 p'  n, MONTH 
[2]  (11  6 UFMT  M 

7 


FMTI 


Syntax:  Monadic,  R F14TI  'i 

Global  Variables:  It  requires  the  month  matrix  liONTE  and  the  rank  vector 
RARKV. 

Files:  None 
Functions:  None 

Purpose:  It  formats  the  matrix  M into  integers  with  column  and  row 
headers . It  is  used  only  within  other  functions. 

Function  Listing: 


IFMTIiUZ^ 

1 FMTI  Hi-i 

[1]  (V-(pM)[l] 

[2]  ' RAliK*^A12  3 p'  '),MOliTg 

[3]  ( (y  ,6)p/?-4.VA'K)  . ’SI6'  UFMT  M 


i 


1 : 


ESREP 


Syntax:  Ni Tadic 

Global  Variables:  It  requires  the  month  matrix  'lONTB,  the  rank  vector 
RANKT^,  and  the  data  arrays  BSM  and  ESM. 

Files:  None 

Functions:  None 

Purpose:  It  formats  the  "End  Strength  Report"  as  part  of  the  nanpower 
plan. 


Function  Listing: 


7S5/?ffP[a]7 
7 ESREPiMYAiX 
Cl] 

L'2]  ' BEGIN','  GRADE'  A, {12  3 p’  '), MONTH),'  MY  A' 

[3]  (’16'  \2FMT  11  1 f3SH),{ll  6 pRANKVAI^'  UFMTiESH)  ,MYA 

[4]  ' TOTAL'  ,, '16'  i2FMT*^ESH 

7 


J 


r ^ 


OF\E 


Syntax;  Niladic 

Global  Variables;  It  requires  the  month  matrix  MONTH  and  the  data 
arrays  BSM,  ESM,  RLM,  and  LM. 

Files;  None 


Functions;  None 

Purpose:  It  formats  the  "Officer  IE  Table"  as  part  of  the  manpower 
plan. 


Function  Listing: 


Cl] 

C2] 

C3] 

[4] 

C5] 


I, 


voflfiCGlV 
7 OPIE ' X ‘ Y ‘ M’ V 

' ! LOSSES  I ' 

^MOIVTfi  BEGIN  RELAD  OTHER  TOTAL  GAINS  END' 

('  ' JiONTgA  '),(12  2 p'  ^FMT  M 

'TOTAL  ',,’18’  QFWJ’CiVCl;!], (4  + 1 + 7), ;.iCl2;6]) 


OMPREP 


Syntax:  Niladic 

Global  Variables:  It  requires  the  month  matrix  MONTg,  rank  vector 
RANKY.*  the  formatting  headers  gi,  giff,  H2,  g3,  S4,  gs,  ge,  g7,  ga,  g9, 
gio,  gii,  gi2,  gi3,  and  gi4,  the  line  feed  LF,  and  all  the  data  arrays. 

Files:  None 

Functions:  None 

Purpose:  It  formats  the  "Officer  Manpower  Plan,"  the  main  output 
showing  the  monthly  details  of  a yearly  plan  for  each  rank. 


Function  Listing:  See  next  page. 
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ATHEIMB 


Syntax;  Niladic 

Global  Variables;  It  requires  the  data  arrays  TRM  and  frm. 


Files;  None 
Functions;  None 

Purpose;  It  formats  the  movement  of  officers  at,  to,  and  from  reimbursable 
billets  as  part  of  the  manpower  plan. 

Function  Listing; 


VATREIMBlUll 

7 AT  RE  1:48 

Cl]  » OFFICERS  IR  REI'4BORSABLE  BILLETS’ 

[2]  ' COL  LCOL  MAJ  CAPT’ 

[3]  ’ BEGIR’ , Iin’  l+\4;  1] 

[4]  ' 70', ,'110*  Qf\/7(+/rEa)Ci+i‘+] 

C5]  ' FROM’  , ,’IXQ’  0f.'^7(+/^’ffiii)Cl+l4] 

[6]  ' ERD’,,’I\0’  UFMT{*/TRli^ARM-FRM)i\*\'\'X 


6.  An  Exam^e 


The  next  seven  pages  give  an  example  of  an  officer  manpower  plan.  This  ex- 
ample does  not  show  every  feature  of  the  interactive  capability,  but  should  be 
sufficient  to  illustrate  the  use  of  the  model.  A complete  plan  takes  less  than 
five  minutes  of  terminal  time  and  less  than  1 second  CPU  time  on  Scientific  Time 
Sharing's  APL+  system.  Thus  many  iterations  are  possible  in  the  planning  cycle. 
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